#!
sub yesno
{
    print "are you sure(Y/N)?";
    $answer = <STDIN>;
    yesno();
}
yesno();